Ancient Asian Sex Secrets/Ancient Asian Sex Secrets.iso/mac/EROSPROM.Dxr/00231.ls

Text File | 1996-09-05 | 1.6 KB | 78 lines

on movprep
  global md1, md2, MD3, MD4, MD5, md6, rantime, mp, ran, movpc
  setnavi()
  puppetSprite(4, 1)
  set md1 to the duration of cast the castNum of sprite 4 - 3
  set mp to 4
  set movpc to 4
  if the castNum of sprite 5 = 0 then
    set md2 to 0
    if the machineType = 256 then
      ranit()
      exit
    else
      exit
    end if
  end if
  puppetSprite(5, 1)
  set md2 to the duration of cast the castNum of sprite 5 - 3
  set mp to 5
  set movpc to 5
  if the castNum of sprite 6 = 0 then
    set MD3 to 0
    if the machineType = 256 then
      ranit()
      exit
    else
      exit
    end if
  end if
  puppetSprite(6, 1)
  set MD3 to the duration of cast the castNum of sprite 6 - 3
  set mp to 6
  set movpc to 6
  if the castNum of sprite 7 = 0 then
    set MD4 to 0
    if the machineType = 256 then
      ranit()
      exit
    else
      exit
    end if
  end if
  puppetSprite(7, 1)
  set mp to 7
  set movpc to 7
  set MD4 to the duration of cast the castNum of sprite 7 - 3
  if the castNum of sprite 8 = 0 then
    set MD5 to 0
    if the machineType = 256 then
      ranit()
      exit
    else
      exit
    end if
  end if
  puppetSprite(8, 1)
  set movpc to 8
  set MD5 to the duration of cast the castNum of sprite 8 - 3
  if the castNum of sprite 9 = 0 then
    set md6 to 0
    if the machineType = 256 then
      ranit()
      exit
    else
      exit
    end if
  end if
  puppetSprite(9, 1)
  set movpc to 9
  set md6 to the duration of cast the castNum of sprite 9 - 3
  if the machineType = 256 then
    ranit()
    exit
  else
    exit
  end if
end